home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / basic / PureBasic.lha / PureBasic_Demo / PureBasic / Examples / FullVersion_Sources / Font.pb < prev    next >
Encoding:
Text File  |  2000-03-19  |  1.3 KB  |  48 lines
  1. ;
  2. ; *******************************************
  3. ;
  4. ; Font management example file for PureBasic
  5. ;
  6. ;       © 1999 - Fantaisie Software -
  7. ;
  8. ; *******************************************
  9. ;
  10. ;
  11.  
  12. InitFont(1)    ; We will need 2 fonts...
  13. InitWindow(0)  ; ... and 1 window
  14.  
  15. If LoadFont(0,"XHelvetica.font",11)                 ; Load our font and check if the
  16.   PrintN("Your system has the XHelvetica font.")   ; font is found or not.
  17.   OkXHelvetica = 1                                   ;
  18. Endif 
  19.  
  20. If LoadFont(1,"topaz.font",8)   ; The same for topaz font
  21.   PrintN("Topaz font found.")    ;
  22.   OkTopaz = 1                    ;
  23. EndIf
  24.  
  25. If OpenWindow(0,10,100,200,200,0,0)  ; Open our window
  26.  
  27.   DrawingOutput(WindowRastPort()) ; 2D Drawing will be done on our window
  28.  
  29.   FrontColour(1)
  30.  
  31.   If OkTopaz                  ; Display text with the different fonts
  32.     DrawingFont(FontID(1))    ;
  33.     Locate(20,30)             ;
  34.     PrintText("Topaz")        ;
  35.   EndIf                       ;
  36.                               ;
  37.   If OkXHelvetica             ;
  38.     DrawingFont(FontID(0))    ;
  39.     Locate(20,50)             ;
  40.     PrintText("XHelvetica")   ;
  41.   Endif                       ;
  42.  
  43.   MouseWait()                 ; Wait the user mouse click
  44.  
  45. Endif
  46.  
  47. End                           ; Free all ressources and quit
  48.